home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / e / ddmoduls.lha / dd_Modules / dd_gui / dd_gadgets / dd_button.e < prev    next >
Text File  |  1995-10-29  |  2KB  |  65 lines
  1. OPT MODULE
  2.  
  3. MODULE 'utility'
  4. MODULE 'utility/tagitem'
  5. MODULE 'intuition/intuition'
  6. MODULE 'gadtools'
  7. MODULE 'libraries/gadtools'
  8. MODULE 'intuition/icclass'
  9. MODULE 'intuition/imageclass'
  10. MODULE 'intuition/gadgetclass'
  11. MODULE 'intuition/screens'
  12.  
  13. MODULE 'dd_gui/dd_screen'
  14.  
  15. MODULE '*dd_maxtextlen'
  16.  
  17. EXPORT OBJECT button
  18.   gadget:PTR TO gadget
  19. ENDOBJECT
  20.  
  21. EXPORT ENUM
  22.   DD_GADGET_DUMMY=TAG_USER,
  23.   DD_GADGET_PREVIOUS,
  24.   DD_GADGET_IMMEDIATE,
  25.   DD_GADGET_LEFT,
  26.   DD_GADGET_TOP,
  27.   DD_GADGET_WIDTH,
  28.   DD_GADGET_HEIGHT,
  29.   DD_GADGET_TEXT,
  30.   DD_DRAWINFO,
  31.   DD_STRINGS
  32.  
  33. EXPORT PROC new(taglist=NIL:PTR TO tagitem) OF button
  34.   DEF previous
  35.   DEF visual
  36.   previous:=GetTagData(DD_GADGET_PREVIOUS,0,taglist)
  37.   visual:=GetTagData(DD_SCREEN_VISUALINFO,0,taglist)
  38.   IF (previous<>0) AND (visual<>0)
  39.     self.gadget:=CreateGadgetA(BUTTON_KIND,previous,
  40.     [GetTagData(DD_GADGET_LEFT,0,taglist),
  41.      GetTagData(DD_GADGET_TOP,0,taglist),
  42.      GetTagData(DD_GADGET_WIDTH,0,taglist),
  43.      GetTagData(DD_GADGET_HEIGHT,0,taglist),
  44.      GetTagData(DD_GADGET_TEXT,0,taglist),
  45.      0,"NR",PLACETEXT_IN,visual,0]:newgadget,[
  46.       GT_UNDERSCORE,"_",
  47.       TAG_DONE
  48.      ])
  49.   ENDIF
  50. ENDPROC
  51.  
  52. EXPORT PROC end() OF button IS EMPTY
  53.  
  54. EXPORT PROC maxButtonLen(taglist)
  55.   DEF stringlist:PTR TO LONG
  56.   DEF drawinfo:PTR TO drawinfo
  57.   stringlist:=GetTagData(DD_STRINGS,0,taglist)
  58.   drawinfo:=GetTagData(DD_DRAWINFO,0,taglist)
  59.   IF (stringlist<>0) AND (drawinfo<>0)
  60.     RETURN maxTextLen(stringlist,drawinfo.font)
  61.   ENDIF
  62. ENDPROC 0
  63.  
  64. EXPORT PROC lastgadget(taglist=NIL) OF button IS self.gadget
  65.